home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / renamesymbol.fpl < prev    next >
Text File  |  1995-07-25  |  610b  |  26 lines
  1. {
  2.   string array[1];
  3.   string name, newname;
  4.   int antal;
  5.   int loop=1;
  6.   
  7.   while (loop) {
  8.     antal=GetList("symbols", &array);
  9.     Sort(&array);
  10.     if (RequestWindow("Rename/Delete symbol",
  11.                       "Old symbol", "a", &array, &name, antal,
  12.                       "New name", "a", &newname)) {
  13.       if (rename(name, newname))
  14.         loop=Request("Symbol already defined!", "", "Mistake|ignore");
  15.       else {
  16.         if (!strlen(newname))
  17.           ReturnStatus("Symbol deleted!");
  18.         else
  19.           ReturnStatus("Symbol renamed!");
  20.         loop=0;
  21.       }
  22.     } else
  23.       loop=0;
  24.   }
  25. }
  26.